gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\forgetpass.asp

    <!--#include file="Include/LiangjingConn.asp"-->
<!--#include file="Include/function.asp"-->
<!--#include file="Include/Md5.asp"-->
<!--#include file="Include/header.asp"-->
<%
function WebContent()
  dim rs,sql,NewPassword
  if request.QueryString("Step")="" then
%>
<table width="360px" border="0" align="center" cellpadding="3" cellspacing="5">
<form action="forgetpass.asp?Step=EnterNameMail" method="post" name="form" id="form">
  <tr>
    <td width="100" align="right">用户昵称：</td>
    <td><input name="User_CoolName" type="text" id="User_CoolName" size="30" maxlength="16" /></td>
  </tr>
  <tr>
  <td colspan="2" height="6px;"></td>
  
  </tr>
  <tr>
    <td align="right">电子信箱：</td>
    <td><input name="Email" type="text" id="Email" size="30" maxlength="50" /></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td><input name="Next2" style="height:26px;width:100px;" type="submit" value="下一步" /></td>
  </tr>
  </form>
</table>
<%
  elseif request.QueryString("Step")="EnterNameMail" Then
    set rs = server.createobject("adodb.recordset")
    sql="select * from Liangjing_User where User_Email='"&request.form("Email")&"' and User_CoolName='"&request.form("User_CoolName")&"'"
	rs.open sql,conn,1,1
	if rs.eof then
	 Response.Write("<script language=javascript> alert('用户昵称或电子信箱地址错误!');history.back(-1);</script>")
      exit function
	end if
%>
<table width="360px" border="0" align="center" cellpadding="3" cellspacing="5">
<form action="forgetpass.asp?Step=EnterAnswer&ID=<%=rs("User_ID")%>" method="post" name="form" id="form">
  <tr>
    <td width="200" align="right">昵称名：</td>
    <td><%=rs("User_CoolName")%></td>
  </tr>
  <tr>
    <td align="right">电子信箱：</td>
    <td><%=rs("User_Email")%></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td><input name="Next" style="height:26px;width:100px;" type="submit" value="下一步" /></td>
  </tr>
  </form>
</table>
<%
  elseif request.QueryString("Step")="EnterAnswer" Then

    set rs = server.createobject("adodb.recordset")
    sql="select * from Liangjing_User where User_ID="&request.QueryString("ID")
    rs.open sql,conn,1,3
	if rs.eof then
	 Response.Write("<script language=javascript> alert('密码可能有误请联系管理员!');history.back(-1);</script>")
      exit function
	end If
    randomize timer
    User_Pass=Int(899999*Rnd() +100000)
    rs("User_Pass")=MD5(User_Pass)
    rs.update
    rs.close
    set rs=nothing
	Response.Write "<script language=javascript>alert('恭喜！您的密码找回成功！\n新密码为："&User_Pass&"\n请登录后修改为新的密码！');window.location.href='Index.asp';</script>"
    exit Function
   End If 

end Function

%>
</div>
<%Response.Write("<div id=""headRound"" class=""clear""><span class=""left""></span><span class=""right""></span></div>")%>
<div id="mainWrapper" class="clear" style="min-height:260px;background:#C9F1FF;);">
	<div class="wording">
	</div>
	<div class="loginBox">
<script language="javascript">
	function frm_onsubmit(frm){
		frm = eval(frm);
		if(frm.user_email.value==""){
			alert("请输入您的<%=Web_Name%>账号！");
			frm.user_email.focus();
			return false;
		}
	}
</script>
<br />
<table width="760" height="1"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td background="images/dot.jpg"></td>
  </tr>
</table>
<table width="<%=Web_TPageWidth%>"  border="0" align="center" cellpadding="0" cellspacing="0">
	  <tr valign="top">
		<td width="460px;height:30px;" align="left">	
<font style="font-weight:bold;font-size:14px;margin-top:6px;">用户找回密码</font>
		<td></tr>
	  <tr valign="top">
		<td width="460px;" align="left">	
<%Call WebContent()%>
		</td>

<td width="1"  bgcolor="#E1E1E1"></td>
<td>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<script type="text/javascript"><!--
google_ad_client = "pub-3406709034811813";
/* 200x200, 创建于 10-6-28 */
google_ad_slot = "1578354907";
google_ad_width = 200;
google_ad_height = 200;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
</td></tr></table>
		</td>
	  </tr>
</table>

<table width="760" height="1"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td background="images/dot.jpg"></td>
  </tr>
</table>
<br />
	</div>
</div>
<%Response.Write("<div id=""footRound"" class=""clear""><span class=""left""></span><span class=""right""></span></div>"&vbcr)%>
<!--#include file="Include/footer.asp"-->